COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE CAMDRV
C00013 ENDMK
C⊗;
TITLE CAMDRV
	P←17
SA:	MOVE P,[XWD 10,PDL]
	SETZM FLAG
STRT:	SPCWAR 1,GO
	INCHRW
	SPCWAR 636367
	SPCWAR STOP
	SKIPN FLAG↔JRST .-1
	EXIT

;SPACE WAR MODULE. --------------------------------------------------

GO:	MOVE 17,[XWD 10,PDL6]
	SKIPL CNT↔JRST L2

L1:	AOSGE CNT↔DISMIS
	MOVEI =300↔MOVEM CNT
	CONO 600,400040
	DISMIS

L2:	SOSLE CNT↔DISMIS
	MOVNI =300↔MOVEM CNT
	CONO 600,200040
	DISMIS

STOP:	CONO 600,40
	SETOM FLAG
	DISMIS

FLAG:	0
CNT:	0
PDL:	BLOCK 10
PDL6:	BLOCK 10
END SA